﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head2()

IF KEY<>0 then
	Call Error2("<title>出错!</title></head><body><div class='main320'>你的权限不足！")
end if
Dim tp
TP=Request("TP")
if TP="" or Isnumeric(TP)=False then TP=1
TP=abs(TP)
if TP=1 then
	YD="主站页面广告"
elseif TP=2 then YD="文章推荐广告"
elseif TP=3 then YD="文章底部广告"
elseif TP=4 then YD="论坛栏目广告"
elseif TP=5 then YD="帖子栏目广告"
end if

Dim action
action = Request("Action")
IF action="view" Then
	call view
elseIF action="del" Then
	call del
elseIF action="edit" Then
	call edit
elseIF action="save" Then
	call save
elseIF action="add" Then
	call add
else
	call login
End IF

sub login
	w "<title>"&YD&"</title></head><body><div class='main400'>"& systemMsg
	Dim rs,sql
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT id,name,tid FROM 74hu_gogo where typeID="&TP
	Rs.Open Sql,myconn,1,1
	If Not rs.eof Then
		Dim PageSize,i,Count,page,pagecount,parent
		PageSize=10
		Count=rs.recordcount
		page=getN("page",1)
		if page<1 then page=1
		pagecount=(count+pagesize-1)\pagesize
		if page>pagecount then page=pagecount
		rs.move(pagesize*(page-1))
		For i=1 To PageSize
			If rs.eof Then Exit For
			w i+(page-1)*PageSize&".<a href='wzggao.asp?sid="&sid&"&amp;Action=view&amp;id="&Rs("id")&"&amp;TP="&TP&"'>"&nowml(Rs("name"))&"</a><br/>点击："&Rs("tid")&"<br/>"
			rs.moveNext
		Next
		w showPage("wzggao.asp", "TP:"&TP, page, pageCount)&""
	Else
		w "(没有广告)<br/>"
	end if
%>---------<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;Action=add&amp;TP=<%=TP%>">[添加广告]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a>
<%
end sub

sub del
	Dim id
	id=Request("id")
	if not isnumeric(id) then id=""
	if id<>"" then
		IF (Request("del")="true") Then
		Dim rs2,sql2
		Set Rs2 = Server.CreateObject("Adodb.Recordset")
		Sql2 = "select * FROM 74hu_gogo WHERE id=" & id &" and typeID="&TP
		Rs2.Open Sql2,myconn,1,3
			if not (rs2.eof and rs2.bof) then
			rs2.Delete
			end if
			rs2.Close
			Set rs2 = Nothing%>
<title>删除广告</title></head><body><div class='main400'>
删除广告成功!<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
		else
			%>
<title>删除广告</title></head><body><div class='main400'>
注意：确定要删除该广告吗？<br/>
<a href="wzggao.asp?Action=del&amp;id=<%=id%>&amp;del=true&amp;sid=<%=sid%>&amp;TP=<%=TP%>">[删除]</a> <a href="wzggao.asp?Action=login&amp;id=<%=id%>&amp;sid=<%=sid%>&amp;TP=<%=TP%>">[取消]</a><br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
		End IF
	else
		%>
<title>删除广告</title></head><body><div class='main400'>
请不要非法传递参数!<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
	end if
end sub

sub view
	Dim id
	id=Request("id")
	if not isnumeric(id) then id=""
	if id<>"" then
		Dim rs2,sql2
		Set Rs2 = Server.CreateObject("Adodb.Recordset")
		Sql2 = "select name,tid,url,id FROM 74hu_gogo WHERE id=" & id &" and typeID="&TP
		Rs2.Open Sql2,myconn,1,1
			if not (rs2.eof and rs2.bof) then
				%>
<title>查看广告</title></head><body><div class='main400'><%w systemMsg%>
广告名称:<%=rs2("name")%><br/>
点击次数:<%=rs2("tid")%><br/>
广告地址:<%=nowml(rs2("url"))%><br/><br/>
<a href="wzggao.asp?Action=edit&amp;id=<%=Rs2("id")%>&amp;sid=<%=sid%>&amp;TP=<%=TP%>">[修改]</a> <a href="wzggao.asp?Action=del&amp;id=<%=Rs2("id")%>&amp;sid=<%=sid%>&amp;TP=<%=TP%>">[删除]</a><br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
			end if
			rs2.Close
			Set rs2 = Nothing
		else
			%>
<title>查看广告</title></head><body><div class='main400'>
请不要非法传递参数!<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
	end if
end sub

sub add
	if Request("add")="true"  then
		Dim name,url
		Name=Request.form("Name")
		url=Request.form("url")
		if name<>"" and url<>"" then
			Dim rs
			set rs=Server.CreateObject("Adodb.Recordset")
			rs.open "select * from 74hu_gogo",myconn,1,3
			rs.addnew()
			rs("Name")=Name
			rs("typeID")=TP
			rs("url")=url
			rs.update
			rs.close
			set rs=nothing%>
<title>添加广告</title></head><body><div class='main400'>
添加广告成功！<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
		else
			%>
<title>添加广告</title></head><body><div class='main400'>
广告名称或广告地址不能为空!<br/>
<br/><a href="wzggao.asp?Action=add&amp;sid=<%=sid%>&amp;TP=<%=TP%>">返回修改</a><br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
		end if
	else%>
<title>添加广告</title></head><body><div class='main400'>
<form method="post" action="wzggao.asp?id=<%=id%>">
广告名称:<br/>
<input name="name" maxlength="50" class="input"/><br/>
广告地址:<br/>
<input name="url" maxlength="255" class="input"/><br/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="TP" value="<%=TP%>"/>
<input type="hidden" name="Action" value="add"/>
<input type="hidden" name="add" value="true"/>
<input type="submit" value="添加广告"/>
</form>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
	end if
end sub

sub edit
	Dim id
	id=TRim(Request("id"))
	if not isnumeric(id) then id=""
	if id<>"" then
		if Request("add")="true"  then
			Dim name,url
			Name=Request.form("Name")
			url=Request.form("url")
			if name<>"" and url<>"" then
				Dim rs
				set rs=Server.CreateObject("Adodb.Recordset")
				rs.open "select * from 74hu_gogo where id= "&id&" and typeID="&TP,myconn,1,3
					rs("Name")=Name
					rs("url")=url
					rs.update
					rs.close
					set rs=nothing%>
<title>修改广告</title></head><body><div class='main400'>
修改广告成功！<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
			else%>
<title>修改广告</title></head><body><div class='main400'>
广告名或广告联接不能为空!<br/>
<br/><a href="wzggao.asp?Action=edit&amp;id=<%=id%>&amp;sid=<%=sid%>&amp;TP=<%=TP%>">返回修改</a><br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
			end if
		else
			Dim rs2,sql2
			Set Rs2 = Server.CreateObject("Adodb.Recordset")
			Sql2 = "select name,url FROM 74hu_gogo WHERE id=" & id &" and typeID="&TP
			Rs2.Open Sql2,myconn,1,1
			if not (rs2.eof and rs2.bof) then%>
<title>修改广告</title></head><body><div class='main400'>
<form method="post" action="wzggao.asp?id=<%=id%>">
广告名称:<br/>
<input name="name" class="input" maxlength="50" value="<%=rs2("name")%>"/><br/>
广告地址:<br/>
<input name="url" class="input" maxlength="255" value="<%=nowml(rs2("url"))%>"/><br/>
<input type="hidden" name="sid" value="<%=sid%>"/>
<input type="hidden" name="TP" value="<%=TP%>"/>
<input type="hidden" name="Action" value="edit"/>
<input type="hidden" name="add" value="true"/>
<input type="submit" value="修改广告"/>
</form>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a><%
			end if
			rs2.Close
			Set rs2 = Nothing
		end if
	else%>
<title>查看广告</title></head><body><div class='main400'>
出错了<br/>
<a href="wzggao.asp?sid=<%=sid%>&amp;TP=<%=TP%>">[广告管理]</a><br/>
<a href="ggao.asp?sid=<%=sid%>">[广告中心]</a>
<%
	end if
end sub

Call rootLast2%>